library(magrittr) readLines("LateHS.csv") %>% paste0(collapse="\n") %>% openssl::base64_encode() -> encoded